;;; -*- Mode:LISP; Package:SI; Base:8; Readtable:T -*-

;;; MACHINE-LOCATION-ALIST is a list of entries, one for each Lisp Machine.
;;; Each entry looks like:
;;;    (host-name pretty-name location (building floor) associated-machine site-options)
;;; where host-name is the official name of the machine (same as in the host table),
;;; pretty-name is a human-readable version of the host-name, location is typically
;;; an office and/or phone number, building and floor are self-explanatory, and
;;; associated-machine is the default login host for this Lisp Machine.

;;; Example:
;;; ("GODOT" "Waiting for Godot" "Room 341, x2674" ("1000 Mass Ave." 3) "LAMBDA-A"
;;;          '((:sys-host "POZZO") (:default-printer "LUCKY")))

(DEFCONST MACHINE-LOCATION-ALIST
          '(("LAMBDA-A"         "Lambda A"       "Machine Room"
             (CUSTOMER 1) "LAMA")

            ("LMI-AMNESIA"      "[Unknown Chaos Address]"   "Nonexistent"
             (Elsewhere 0) "LMI-AMNESIA")

            ("LAMBDA-B" "Lambda B"              "Machine Room"
             (CUSTOMER 1) "LAMA")

            ("LAMBDA-C"         "Lambda C"      "Machine Room"
             (CUSTOMER 1) "LAMA")

            ("LAMBDA-D"         "Lambda D"        "Machine Room"
             (CUSTOMER 1) "LAMA")

            ("LAMBDA-E"         "Lambda E"        "Machine Room"
             (CUSTOMER 1) "LAMA")

            ("LAMBDA-F"         "Lambda F"        "Machine Room"
             (CUSTOMER 1) "LAMA")

            ("LAMBDA-G"         "Lambda G"        "Machine Room"
             (CUSTOMER 1) "LAMA")

            ("LAMBDA-H"         "Lambda H"        "Machine Room"
             (CUSTOMER 1) "LAMA")

            ))


@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------

@c xlmlocs
